-- background: 2627 from stack: in
-- bmap block id: 2367
-- flags: 0000
-- background id: 0
-- name: Detailed Info
----- HyperTalk script -----
on opencard
  hide menubar
end opencard

on newcard
  domenu "New Button"
  set name of button 1 to "Executive"
  set rect of button 1 to 16,67,105,84
  set style of button 1 to checkbox
  set autohilite of button 1 to true
  set script of button 1 to script of bkgnd button "Exec Script"
  domenu "New Button"
  set name of button 2 to "Modem"
  set rect of button 2 to 16,119,88,135
  set style of button 2 to checkbox
  set autohilite of button 2 to true
  set script of button 2 to script of bkgnd button "Modem Script"
  domenu "New Button"
  set name of button 3 to "Business Use"
  set rect of button 3 to 16,171,131,188
  set style of button 3 to checkbox
  set autohilite of button 3 to true
  set script of button 3 to script of bkgnd button "Business Script"
  domenu "New Button"
  set name of button 4 to "Use PD Software"
  set rect of button 4 to 16,228,153,244
  set style of button 4 to checkbox
  set autohilite of button 4 to true
  domenu "New Button"
  set name of button 5 to "Contribute PD Software"
  set rect of button 5 to 16,252,194,270
  set style of button 5 to checkbox
  set autohilite of button 5 to true
  -- Create Six Fields
  domenu "New Field"
  set name of card field 1 to "Exec1"
  set rect of card field "Exec1" to 53,88,120,106
  set textfont of card field "Exec1" to Chicago
  set textalign of card field "Exec1" to right
  domenu "New Field"
  set name of card field 2 to "Exec2"
  set rect of card field "Exec2" to 125,88,227,106
  set textfont of card field "Exec2" to New York
  set showlines of card field "Exec2" to true
  domenu "New Field"
  set name of card field 3 to "BBS1"
  set rect of card field "BBS1" to 26,140,120,158
  set textfont of card field "BBS1" to Chicago
  set textalign of card field "BBS1" to right
  domenu "New Field"
  set name of card field 4 to "BBS2"
  set rect of card field "BBS2" to 125,140,227,158
  set textfont of card field "BBS2" to New York
  set showlines of card field "BBS2" to true
  domenu "New Field"
  set name of card field 5 to "Bus1"
  set rect of card field "Bus1" to 53,194,120,212
  set textfont of card field "Bus1" to Chicago
  set textalign of card field "Bus1" to right
  domenu "New Field"
  set name of card field 6 to "Bus2"
  set rect of card field "Bus2" to 125,194,227,212
  set textfont of card field "Bus2" to New York
  set showlines of card field "Bus2" to true
  -- Touchups
  put "Position" into card field "Exec1"
  put "BBS Number" into card field "BBS1"
  put "Area" into card field "Bus1"
  hide card field 1
  hide card field 2
  hide card field 3
  hide card field 4
  hide card field 5
  hide card field 6
  set locktext of field 1 to true
  set locktext of card field "Exec1" to true
  set locktext of card field "BBS1" to true
  set locktext of card field "Bus1" to true
end newcard




-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=328 top=35 right=61 bottom=362
-- title width / last selected line: 0
-- icon id / first selected line: 22308 / 22308
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  get the number of this card
  if it = the number of cards then exit mouseup
  visual effect wipe right
  go to next card
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=449 top=35 right=61 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  put bkgnd field 1 into name
  go to card name of stack "Surfboard"
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=449 top=67 right=93 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go home
end mouseUp




-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=288 top=35 right=61 bottom=322
-- title width / last selected line: 0
-- icon id / first selected line: 19381 / 19381
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  get the number of this card
  if it = 1 then exit mouseup
  visual effect wipe left
  go to previous card
end mouseUp



-- part 28 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=68 top=36 right=53 bottom=234
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 53 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=125 top=279 right=315 bottom=227
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 


-- part 46 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=352 top=90 right=126 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 


-- part 50 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=352 top=150 right=168 bottom=465
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 51 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=352 top=181 right=217 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 


-- part 54 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=352 top=233 right=269 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 


-- part 52 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=352 top=283 right=319 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 


-- part 57 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=0 top=320 right=342 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hide
----- HyperTalk script -----
on mouseup
  set visible of bkgnd button 6 to not visible of bkgnd button 6
  set visible of bkgnd button 7 to not visible of bkgnd button 7
  set visible of bkgnd button 8 to not visible of bkgnd button 8
end mouseup



-- part 58 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=22 top=69 right=91 bottom=122
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Exec Script
----- HyperTalk script -----
on mouseUp
  -- Executive button script
  set visible of card field 1 to not visible of card field 1
  set visible of card field 2 to not visible of card field 2
end mouseUp



-- part 59 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=20 top=123 right=145 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Modem Script
----- HyperTalk script -----
on mouseUp
  -- Modem button script
  set visible of card field 3 to not visible of card field 3
  set visible of card field 4 to not visible of card field 4
end mouseUp



-- part 60 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=19 top=177 right=199 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Business Script
----- HyperTalk script -----
on mouseUp
  -- Business Use button script
  set visible of card field 5 to not visible of card field 5
  set visible of card field 6 to not visible of card field 6
end mouseUp



-- part 63 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=42 top=288 right=306 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: SIG Groups
----- HyperTalk script -----
on mouseUp
  ask "Sort by which line?" with "1"
  sort by line it of bkgnd field 2
end mouseUp



-- part 64 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=260 top=90 right=109 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Type of Mac
----- HyperTalk script -----
on mouseUp
  sort by line 1 of bkgnd field 3
end mouseUp



-- part 65 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=254 top=134 right=170 bottom=351
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First Meeting Attended
----- HyperTalk script -----
on mouseUp
  answer "Do you want to sort or insert a date?" with "Sort" or "Date"
  if it = "Sort" then sort dateTime by bkgnd field 4
  else
    push card
    go to SurfDate
  end if
end mouseUp



-- part 66 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=284 top=284 right=319 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort by Interest
----- HyperTalk script -----
on mouseUp
  ask "Sort by which line?" with "1"
  sort by line it of bkgnd field 7
end mouseUp



-- part 68 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=16 top=37 right=52 bottom=66
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Name
----- HyperTalk script -----
on mouseUp
  answer "Sort by:" with "Cancel" or "First" or "Last"
  if it = "Last" then sort by word 2 of bkgnd field 1
  else if it = "First" then sort by word 1 of bkgnd field 1
end mouseUp



-- part 69 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=386 top=52 right=91 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 23078 / 23078
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  push card
  visual iris close
  answer "Which help would you like?" with "General" or "This Stack"
  if it = "General" then go to Help
  else go to last card of SurfHelp
end mouseUp